SOHO - Exploring the Sun - 2003 Update/SOHO - Exploring the Sun - 2003 Update.iso/pc/data/main.dcr/scripts_9.ls

Text File | 2003-02-25 | 1.5 KB | 57 lines

on exitFrame
  global nappi_sprite, dire, min_duration
  if dire = 1 then
    set the directToStage of member the member of sprite 110 to 1
    set the directToStage of member "sml_sun" to 1
    set dire to 0
  end if
  LiveRollOver(103, 103)
  if SpriteExists(110) > 0 then
    if the duration of the member of sprite 110 > min_duration then
      LiveRollOver(110, 80, 0)
    end if
  end if
  DefCurs()
  if the puppet of sprite nappi_sprite = 0 then
    set the puppet of sprite nappi_sprite to 1
  end if
  set us to 0
  if rollOver(80) and (SpriteExists(110) > 0) then
    set the locV of sprite nappi_sprite to 156
    set us to 1
  end if
  if rollOver(81) then
    set the locV of sprite nappi_sprite to the locV of sprite 81 + 15
    set us to 1
    RollEarth(91)
  end if
  if rollOver(82) then
    set the locV of sprite nappi_sprite to the locV of sprite 82 + 15
    set us to 1
    RollEarth(92)
  end if
  if rollOver(83) then
    set the locV of sprite nappi_sprite to the locV of sprite 83 + 15
    set us to 1
    RollEarth(93)
  end if
  if rollOver(84) then
    set the locV of sprite nappi_sprite to the locV of sprite 84 + 15
    set us to 1
    RollEarth(94)
  end if
  if rollOver(85) then
    set the locV of sprite nappi_sprite to the locV of sprite 85 + 15
    set us to 1
    RollEarth(95)
  end if
  if us = 1 then
    set the locH of sprite nappi_sprite to 460
  else
    if the locV of sprite nappi_sprite < 480 then
      set the locV of sprite nappi_sprite to 490
    end if
  end if
  go(the frame)
end